UUU 


UUU UUU 
UUUUUUUUUUUUUUU 
UYUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


AA tt St HH HH A SH HH HH 
AAA tt St Se SH SS HH 
AAA st tH St HH 


EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 


T PPPPPPPPPPPP 
T PPPPPPPPPPPP 
T PPPPPPPPPPPP 

PP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
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en ee ed ee ee oe 
le ee ee ee ed ee ee ee oo 


— 
—— 
= 
nn YNMNwM 
nn NNNM 
own nw nn 
nn nn aon 
nn nn nn 
nw nn nn 
an nn nn 
own nw nn 
ANNwM nn 
NNNM nn 
usu Us us 
wu wus 
uu ww wi 
ww wu ww 
uwiw wus uw 
wow wu www 
wu ww ww 
wu uu wu 


WU UW a a a a a a 
a Ls 


bo 

a 

mi 

oe 

oo 

a ee ee ee eo 

mh 

os 

be bee 

ioe 

nn NNNM 

nn MNMNM 

nn nw nn 

nn nn nn 

nn nn nn 

nw nn nn 

nn nn nw 

nn nn nw 
NNW nn 
NNnNM nw 


nw MWWMw 
nw AWnnwn 
“wn ww nn 
un wn “wn 
nw ww nwnwn 
“wn “wn now 
“nw own “nn 
mn wn nn 
WMunnnwn “nw 
MMMwWM nn 
ee o=ngons 
liom —— 


LLELLLLLLLL 
LLLLLLLLLL 
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TEST7,002,__TMSTEST,<FILE SHARING TEST PROGRAM>,<LONG,GBL> 


This test program tests the file ghar tog capability of rms. 
Both sharing between processes and within a process is tested. 
Sharin pepuecn processes is acconpl tsheq by submitting a 
command file which executes a program which synchronizes itself 
with this program, through the use of group event flags. The 
command file which must be present is “detached.com’ 

as the file ‘‘detached.exe'’. 


Written by: R. A. Newell 29 aug 78 
Modified By: 

VO2-002 REFORMAT Maria del C. Nasr 24-Jul-1980 
Revision History: 


» as well 


SooCcooo 


D. M. Bousquet 1 nov 78 
Created a cif race with the two processes and added a prompt 
feature that asks for the record #, and step 


SoOoooooQooooooooooooo 


macros 


.MACRO TYPE STRING, ?L 

STORE <STRING> 

BLBC  VERBOSITY.L 

MOVL  #$$.TMPX, CMDORAB+RABSL_RBF 


MOVW #$$.TMPX1, CMDORAB+RABSO_RSZ 
$PUT RAB=CMDORAB, ERR=REPORT _ERROR 


OOCCCCOCSCOSCOOOCOCOOOCOOOCOSCOOCOOSCSooOOoOO 


, BSBW 
.ENDM = TYPE 
.MACRO STORE STRING,PRE 
* SAVE 
“PSECT __SRMSNAM 
$$. TMPX=7 
PRE 
ASCII XSTRINGX 
$$. TMPX1=.-$$. TMPX 
RESTORE 
"ENDM = STORE 


-ALIGN LONG 


DOONAN E WN OOD NA UE WI SO OO NAME WIN @ O OD NOAM EWN OOD NOU EWN OOONOUSWW 
Sete 


WOOO WDO OOOO O00 096000 00.00 09 09 0009 SI NIN NN NS DDD DP DP AA De UTS BP 


SOoCCOCSCOSCSOSOOSOOOOOOOOOOSOOOSOSOOOSOOOOOOOOOOOOOOOOOOO 


SOOooooooooooooooooooooooooooooooooooooooooooooO 


SOoOoCoooooooooooooooooooooooooooooe 


Soooooooooooooo 


SHRF AB: : 


—$<$<<—_—- ___ __ —_ ———+, 
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RMSTEST? FILE SHARING TEST PROGRAM ; SEP-1984 AX/VMS Macro V04-00 ° 
FO. B00 Bes oes re eS es act er |e te 


SFA FAC=<GET,PUT,UPD>, FNM=<TSTSDISK: CRM. TESTISHARED.DAT>, ORG=IDX,- 
mRe 280, FOP=CIF, SHR=<PUT, GET>, RFM=VAR, XAB=SHR H 3 ' rity 
SHRRAB 


¢ surxaso. 2A UBF =RECBUF ,USZ=80,F AB=SHRF AB, RBF =RECBUF ,RSZ=80,RAC=KEY 

§ gt agrees -P0S=0,S$12=4,DTP=BN4 

8 DPFAB:: SFAB FAC=GET,FNM=<TSTSDISK:CRMS.TESTIDETACHED.COM>,- 
NARSBCHBLE. FOP=SCF 

0 BCHBLK:: 

SNAM Fenn .Aeone 

NAMBCH: 

CLUSTER: 
“Lone Hee 

EFNAM: .ASCII /NOVA/ 
EFLNG= -EFNAM 

RECBUF : 


000001C0 
00000004" 
00001¢8' 
-BLKB 0 
TSTWRD: .ASCII /TEST/ 


DNININININ OOOO OO COWWMMMOO 


FEF FOOCCOCOMOONBLSOOOCOCOCOOS 


MOMONMOMOPOPOPOPOPONUND 2 2 2 2 2 SS I OOOO OOOO 


SH2F AB: : 
6 SFA FAC=<GET,PUT>, FNM=<TSTS$DISK:CRMS.TESTJSHARED.DAT>,- 
aioe mRSe80, SHR=<PUT,GET>, ORG=1DX,RFM=VAR, XAB=SHRXABO 
0 ""$RAB —sCUBF =RECBUF , USZ=80, FAB=SH2F AB, RBF =RECBUF ,RSZ=80 
8 B 3 
B 3 
028 ; 
028 
02B4 
OFFC 0284 
0286 
0286 
FD32° 30 8 te BSBW 3; check for error 
CE SOPEN en DPF AB 
cE R=REPORT ERROR g oper detached.com file 
FDIE’ 30 of BSBW 3: check for error 
E SCLOSE FAB=DPFAB 
E ERR R=REPORT ERROR 3; close and submit com file 
: BSBW 3; check for error 
rs SCREATE FAB=SHRFAB,- 


ERR=REPORT_ERROR : open shared file 
R check for error 


NO 


BSBW 


MOVL RO,R2 ; save r0, was it created? 
SCONNECT RAB=SHRRAB,- 

IACREP RT FANON 3 connect to shared file 
BSBW ERR 3; check fo 


SSFSS 


r error 


CMPL R2 


#RMSS_CREATED ; opened or created? 
BNEG OKO 


00000000 ' 8F 6 D1 : 
1 ; opene = synchronized w/d.p. 


MOVL #1,R2 
R2,RECBUF 


aa aa a a a a at a tt = = ts = = = = = = 2 SS 9s 2s = s 1 2 st ss 


1 
i 
1 
1 
14 
12 
i 
15 
0 
1 
5 
4 
5 
0 SHRSTRT:: 
1 -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
SASCEFC ~Ser EFN=#64 ,NAME= CLUSTER; create cluster 2 
5 
; 
: 
40 
4} 
23 
44 
rf 
i 
25 
39 
: 
3 
6 


FDOA' 30 
FCF6" 30 
52 50 3600 
FCDF' 30 


o,ro--—-m 


Mororofoerne — 


alize reg 


af 
FE9A 2? 3 D set up record buffer 


Oo 
x 
=z 
oO 
< 
Cc 
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02-600 ete 1 8:39:38 UETP.SRCIRMSTEST7.MAR; 1 ° dy 
7 $PUT RAB=SHRRAB 3 t the record 
ct5e ow 82 34 AOBLSS FS RD OF 5 owe i records 
OKO: SWAITFR_S FN=#64 3 wait for sync with d.p. 
SCLREF_S FN=#64 ; clear ef # 
TYPE <eee WE ARE prt: SYNCHRONIZED WITH THE DETACHED PROCESS ***> 
SSETEF_S EFN=# 3; turn on d.p. 
SWAITFR_S EFN=#64 ; wait for d.p. for restart 


The detached process is now going to read record 1 from the share 
file. This controlling program will then attempt to read record 
which is in the ogee bucket as record 1. mt read should be 
successful. it will then try to read record 1 which should be 
automatically locked by the detached process. Therefore, a record 
locked error should be returned to this program. 


SCLREF_S EFN=#64 ; clear ef #64 
MOVL #2 U : set key=rec 2 

TYPE | < AUTOMATIC LOCKING TEST > 

$GET RAB=SHRRAB,ERR=REPORT_ERROR; get rec 2 

RO,OK1 ; branch if rec read ok 
TYPE § <##® UNEXPECTED BUCKET LOCKED STATUS ***> 

3; rec shouldn't be locked 


FE16 CF 602 ~ =i 


2-50 «EB 


FOOF CF O01 DO OK1 MOVL #1 ,RECBUF ; set key=rec 1 
$GET | RAB=SHRRAB,ERR=REPORT_ERROR; get rec 1 
2F 50 «ED ,OK 3; branch if rec locked 
TYPE <*t* AUTO LOCK FAILURE ON REC 1 *## > 
+ rec should be locked - 
OK2: SSETEF_S EFN=#65 3 restart d.p. 
SWAITFR_S EFN=#64 ; wait for d.p. restart 


The detached prosess will now read record 2. This should release the 
automatic lock on record 1, allowing this controlling process to read 
it. This program will then attempt to modify record 1 and store it 
out to the shared file. If this succeeds, we will read it back and 
make sure that the ypcate did indeed succeed. Finally, we will also 
try to read record 2 as a double-check on the previous test. 


PRRR RRR RRR RRP PR PRR RPP RRP 


SCLREF_S EFN=#64 ; clear ef #64 
FO30 CF O01 ODO MOVL #1, RECBUF ; set key=rec 1 
$GET RAB=SHRRAB,- 
RR=REPORT_ERROR 3 get rec 1 


32 50 =2«EB BLBS RO,OK : branch if rec read ok 
TYPE <t** AUTO UNLOCK FAILURE ***> 
; record still locked 


BRW OK4 ; bypass update test 


MOVL TSTWRD ,RECBUF 3; update record 1 
TYPE — < UPDATE SHARING TEST > 
SUPDATE RAB=SHRRAB,- 

ERR=REPORT ERROR ; put the updated rec 
BLBS RO,OK3A 3 Says ok, check it 


OOFs = 31 
FCES CF 6FD36 CF DO 


Oo 
rad 
Ww 


PRIPIPIPIPOPOPIMPOPIMIPINIPIN) a at st r  t 
cenpantpde etek Pies aes tee ae ee bie ee da eee te 
WRI OOO NAME WIN SO OO NAME WIN O OO NA UE WI 2 OC OO NA UNE AN SOOO NOUS 

ow 

oe 

@ 

o 


SOOCOOCSCOCOCOSOOSOOSOSOOOOOSOOCOOOOOOOOOOOOOOOOOOCOOOOoOO 


OTL oe et et et 
meee—rmmmnoo 


3150 =«€8 
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C TYPE <tt* UPDATE ON REC 1 FAILED ***> 
8 3; record 1 og updated 
7D 83611 . BRB OK4 ; bypass check of update 
ee RABR IREPORT ERROR t th dated d 
= al 3 ge e updated recor 
31 50 +€8 gf BLBS R a ; Branch ‘T ree read ok 
TYPE <ete READ OF UPDATED RECORD FAILED **#> 
A 3; error on read of rec 
38 Os “ BRB OK4 3; bypass rest of check 
FC23 CF FC76 gr »} A OK3B: CMPL TSTWRD,RECBUF 3: check the update 
F 1 A BEQL 4 branch i 


. update succeeded 
TYPE §§ <##® UPDATE OF RECORD DIDN'T MAKE IT ###> 
3; comparison failed 


OK4: MOVL #2,RECBUF 3 set key=rec 2 
$GET RAB=SHRRAB,- 
RR=REPORT_ERROR ; attempt to read rec 2 
,OK : prens if rec not read 
TYPE <te# AUTO LOCK FAILURE ON REC 2 **#*> 
3 rec not locked 


FRED CF 02 00 


2F 50 —«EY 


OK5: 3; restart d.p. 


65 p 
64 3; wait for d.p. restart 


OOCQCOOOCOCOCOCOCOOCOOOOOOOOOOOOO 


PDRDPEDPPED Saari 


The detached process will now read record 3 with a manual lock. 
This program will then atteges to read record 3 and expects to get 
a locked status returned. The detached process wili then be 
restarted and record 4 will be read with a manual lock. This 
program will then attempt to read both records 5 and 4, and expects 
to get locked status back on each of the read attempts. 


OOOCOCoOoCooooo 


WO NNN SE NNWIW WII IWIIIiinononon ouaSeLe 


PPRAAHRQGC OO VPS OCOCO$- MIG DONNA OAAHAAOOO IINWO"T PY PP 


SAE AAARAA AAA OA IIIT BS BP BS BB WINWOOD | 


SOONA NE AN SO OD NA UNE WN OS OO NAME WWI O OD NAME WIN O OD NOU EWR OWOONOUS 


6 
6 
6 
6 
6 
6 
3 
6 SCLREF_S EFN=#64 ; clear ef #64 
6 TYPE < MANUAL LOCKING TEST > 
FBG4F CF O03 DO 06 MOVL #3,RECBUF ; set key=rec 3 
6 $GET § RAB=SHRRAB,- 
6 RR=REPORT_ERROR $ ettenpt to get rec 3 
2F 50 €9 06 BLBC RO,OK ;_branch_if error on get 
6 TYPE <#tt MANUAL LOCK FAILURE ON REC 3 *#*> 
re: 3 rec not locked 
gt OK6: SSETEF_S EFN=#65 3 restart d.p. 
C SWAITFR_S EFN=#64 3; wait for 4-0- restart 
6D SCLREF_S EFN=#64 3; clear ef #6 
FAEO CF 04 DO Q6E MOVL #4, ,RECBUF ; set key=rec 4 
6E $GET RAB=SHRRAB, - 
E RR=REPORT_ERROR ; attempt to get rec 4 
2F 50 =O«€ED F BLBC RO,OK 3; branch if locked 
TYPE <ttt MANUAL LOCK FAILURE ON REC 4 **#*#> 
4 3; should be locked 
FA98 CF O03 D0 O7 OK7 MOVL #3,RE :; set key=rec 3 
7 $GET §RAB=SHRRAB,- 
7 ERR=REPORT_ERROR ; attempt to get rec 3 
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2F 50 =€9 O74 BLBC RO,OK8 ; branch if locked 
os 7 TYPE § <®#®* PREMATURE MANUAL UNLOCK ON REC 3 ###> 
7 : should still be locked 
77 2 OK8: eer ite S$ hemes ; restart d.p. 
if WAITFR_S EFN=#64 ; wait for d.p. restart 
791 ; 
791 3 The detached process will now release the manual lock on record 3, 
791 3 but will not unlock record 4. This program will then try to read 
791 3 both records 5 and 4 again, expecting to be able to read record 
791 3 but not record 4. 
731 ' 
791 SCLREF_S EFN=#64 ; clear ef #64 

FA29 CF 03 v0 79 MOVL ~ #3,RECBUF 3; set key=rec 3 

7A SGET § RAB=SHRRAB,- 
7A RR=REPORT_ERROR ; get record 3 

2F 50 €8 0Q7B4 BLBS RO,0 ; Branch if rec 3 read ok 
787 TYPE § <#®* MANUAL UNLOCK FAILURE ON REC 3 *##> 


3; should be unlocked 
F9E1 CF 04 00 OK9: MOVL #4 ,RECBUF 
$GET §RAB=SHRRA 


P ; set key=rec 4 
RR=REPORT_ERROR ; get record 4 


RIPPIN 4 9 9 I  MDOODODOOOO OOO OOOO OO OWWWWOWO00O0 VINNY 


4 
7E 0 
O7E 1 
7E6 $ 
Ae ie 
2F 50 €9 O7FC 5 BLBC RO,OK ; branch if rec not read 
7FF $ TYPE <*** PREMATURE MANUAL UNLOCK ON REC 4 *##*> 
be ; f : should still be locked 
OB E 9 OK10: SSETEF_S EFN=#65 3 restart d.p. 
O87 ? SWAITFR_S EFN=#64 ; wait for d.p. restart 
084 3 
SRG : 3 The detached process will now read record 1 without manual locking. 
84 4; This program will then try to read both records 1 and 4, expecting 
of 33 to fail on both. The detached process will then read record 2, 
4 $ ; automatically uni eck ing record 1. This program will then again try 
4 : to read records 1 and 4, this time expect ing to be able to read 
4 8; record 1, but still not record 4 as it should still be manually 
4 9; locked. Finally, the detached process will release record 4 and 
r 9 : we will try to read it from this program, expecting to be able to. 
4 ° 
4 5 SCLREF_S EFN=#64 ; clear ef #64 
F972 CF O01 00 : MOVL #1, RECBUF ; set key=rec 1 
A $GET  RAB=SHRRAB,- 
A § RR=R PORT_ERROR H prtense o read rec 1 
2F 50 =D 68 BLBC RO,OK ; branch if not read 
E 8 TYPE <### AUTO LOCK 2 FAILURE ON REC 1 *#*#> 
D ; should be loghed 
FO2ZA CF 04 = 200 D 0 OK11: Bove #4, ,RECBUF 3; set key=rec 
1 $GE RAB=SHRRAB, = 
5 RR=REPORT_ERROR ; attempt to read rec 4 
2F 50 «2&9 BLBC RO,OK 3; branch if not read 
4 TYPE <t## PREMATURE MANUAL UNLOCK ON REC 4 ##*#> 
5 3; should still be locked 
$ OK12 SSETEF_S EFN=#65 ; restart d.p. 


uy Fue sama vest ocean "CHET SEE OMAR AT ans Pt 


F2 SWAITFR_S EFN=#64 ; wait for d.0- restart 
FF SCLREF_S EFN=#64 ; clear ef #6 
F8BB CF «€601~Sfs«é#O of MOVL #1,RECBUF ; set key=rec 1 
9 $GET  RAB=SHRRAB,- 
9 ; RR=REPORT_ERROR ; attempt to read rec 1 
2F 50 €8 QO9 BLBS ,OK1 ; branch if able to read 
9 4 TYPE § <##® AUTO UNLOCK 2 FAILURE ON REC 1 *##> 
2 2 5 ; should be unlocked 
F873 CF 04 DO 0954 ; OK13: MOVL #4, ,RECBUF 3; set key=rec 4 
959 : $GET § RAB=SHRRAB,- 
959 RR=REPORT_ERROR ; attempt to read rec 4 
2F 50 £9 OQ96A 40 BLBC OK ; branch if unable to read 
960 41 TYPE § <#*# PREMATURE UNLOCK 2 FAILURE ON REC 4 ®##> 
443 2g ; should be locked 
44 44 0K14 SSETEF_S EFN=#65 i restart d.p. 
9A 45 SWAITFR_S EFN=#64 i wait for g:0- restart 
9B 6 SCLREF_S EFN=#64 ; clear ef #6 
F804 CF 04 00 43 rtf port pte i 0 ; Set key=rec 4 
+ 4 = 
a3¢ 49 ERRER PORT_ERROR ; attempt to read rec 4 
2F 50 €8 O9D 50 BLBS RO,OK1 ; branch if able to read 
09DC 51 TYPE <*** MANUAL UNLOCK 2 FAILURE ON REC 4 **#*#> 
ee 26 ; should be unlocked 
A0B 54 OK15 SRELEASE RAB=SHRRAB,- 
A0B «355 ERR=REPORT_ERROR : release record 4 
2F 50 €8 OAIC 2$ BLBS RO,OK ; branch if successful 
OA1F 35 TYPE  <##® RELEASE FAILURE ON REC 4 *#®> 
OASE 58 ; release failed?? 
OAGE 59 
OASE 60 OK16: 
a 
ASE $6 s We have completed the file sharing tests for multi-process 
AGE 64 ; sharing of a file. Now we will test file sharing within one 
AGE 65 ; process. This is accomplished by multiple opens on the same 
ASE 26 3 file. The results should be identical to those experienced 
rt ; 3 by the multi-process file sharing tests. 
ASE 63 : We begin by closing phe current shared file and the doing two 
vt oy 3 opens on it using different fabs and rabs. 
AGE re ; 
ASE 7 SDISCONNECT RAB=SHRRAB,- 
AGE 74 ERR=REPORT_ERROR 3; disconnect from file 
F59E* 30 OASF 75 tae ERR ; check for error 
A6 6 CLOSE FAB=SHRFAB,- 
Mg 7 ERR=REPORT_ERROR ; close the file 
F58A° 30 OA 4 BSBW ERR ; check for error 
eet 
v4 : 3 ok, we are ready to start the multi-open tests 
A7 : 
Ane 4 TYPE < MULTI-OPEN SHARING TEST > 


FILE SHARING TEST PROGRAM ; 


‘aval 
AA 
AB 
AB 
AB 
ACA 
ACD 
ACD 
AD 
AE 
AE1 
AF 
AF 
AF 
AF 
AF 
AF 
AF 
AF 
AF 
AFA 


30 
30 
30 


30 


dO 
30 
E9 


11 


AWAAAAANAAAAAWII 


W000 000 00 00M 9D 


Poa 
al 


Petttttt ttt tttt 


LD OS CONIA OO TUT UU Ut 


oO 
x 
™ 
— 


OOD NAN EWN 9 O OOD NAME ANI © OD NAME WN OS OOO NAMEN OS OONAUE WH OOONOUM 


FEW ATROIRIINININININININ 4 BOO OOOCOOCOO 


Pe ee ee NUMA MUAHNHAHMHNnMtHHts ee 


SOPEN FAB=SHRFAB,- 


ERR=REPORT_ERROR : 

BBW ER : 
CONNECT RAB=SHRRAB,- 

ERR=REPORT._ERROR : 

BsBy R : 
OPEN FAB=SH2FAB,- 

ERR=REPORT_ERROR ; 


BSBW 
SCONNECT RAB=SHRRAB, - 

ERR=REPORT_ERROR 
BSBW RR 
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eee the shared file 
check for error 


connect to the file 
check for error 


open it again 
check for error 


connect to it again 
check for error 


RAB 1 will now read the first record of the this. hogefully 
‘ef 


causing an automatic lock to come 


up on it. RAB Ll try to 


read it, expecting to get an error. 


MOVL  #1,RECBUF ; 
$GET  RAB=SHRRAB,- 
ERR=REPORT_ERROR ; 
BSBW CER : 
$GET  RAB=SH2RAB,- 
RR=REPORT_ERROR ; 
BLBC —sRO, OK : 
TYPE § <##® MULTI-OPEN AUTO LOCK 
BRB 0K21 : 


set key=rec 1 
get record 1 


; check for error 


attempt fo get rec 1 
branch if rec not read 
FAILURE ***> 

rec should be locked 
bypass auto lock test 


Now rab 1 will read record 2. This should automatically unlock 


record 1 and rab 2 should be able 


MOVL  #2,RECBUF : 
$GET § RAB=SHRRAB,- 
ERR=REPORT_ERROR ; 
BSBW sR ; 
MOVL = #1 RECBUE ; 
$GET §RAB=SH2RAB,- 
RR=REPORT_ERROR ; 
BLBS 


to read it. 


set key=rec 2 


get record 2 
check for error 
set key=rec 


rab 2 tries to read rec 1 
if rec 2 read ok 


,OK : branch 
TYPE § <e** MULTI-OPEN AUTO UNLOCK FAILURE ***> 


Continuing with the multi-open file sharing tests, we s 


read record 3 (rab 1) with manua 


rec should be unlocked 


hall now 
locking specified, This should 


unlock record 2 and lock record 3, as will be verified by read 


attempts by ra 


se 


F606 CF 03 


FSED CF rae" 


2F 50 


FSAS CF 03 


2F 50 


FS5D CF 604 


F37D° 
F544 CF 03 
2F 50 


FOFC CF 804 


2F 50 


F4B4 CF 03 


F2cc’ 


FILE SHARING TEST PROGRAM ; 


OK25: 


D0 MOVL 
$RAB_ 
$GET 

30 


ty ERR 
RELEASE RAB=SHRRAB,- 


AX/VMS Macro V04-00 Page 
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SSEP=198¢ 04:29:08 


; rec should be locked 


The test program will not unlock record 3, but will maintain the 
lock on record 4. 


#3,RECB ; set key=re 


UF 3 c 4 
B stom RAB=SHRRAB ,,ROP=40 ; clear manual lock bit 


AB=S sb - 
ERR=REPORT_ERROR ; read record 3 again 
check for error 


BBS 44 SRAB_STORE RAB=SHRRAB,ROP=ULK 3; set manual lock bit 
dO C1 108 Boyt A RECBUF 3; set key=rec 
C6 444 $GE RAB=SHRRAB, - 
C6 445 ERR=REPORT_ERROR ; read record 3 
38 bapa ae mov WO RECBUF Soot beatrel 
3 set key=rec 
DF 448 SGET  RAB=SHORAB,- , 
BDF 44 RR=REPORT_ERROR 3 rab 2 read rec 2 
E8 F 450 BLBS ,OK ° oransh if rec read ok 
BFS 4 TYPE § <##® MULTI-OPEN AUTO UNLOCK 2 FAILURE ***> 
: ? ; rec should be unlocked 
DO =«(O0C 454 OK22: MOVL #3,RECBUF ; set key=rec 3 
C $22 $GET RA RE ORAB - ' 
C27. 4 § RR=R PORT_ERROR 3 pttonpt to read rec 3 
E9 0C38 $2 BLBC ,OK ; branch if rec not read 
Fr $28 TYPE <*%* MULTI-OPEN MANUAL LOCK FAILURE ***>; rec should be Locked 
C6A 460 OK23: 
ei 
be & 188 3 Now we will read record 4 with manual locking. This should not, 
C6A 464; however, unlock the manually locked record 3. 
Sten tee 
DO OC6A 4 MOVL #4 ,RECBUF 3: set key=rec 4 
C6F 4 $GET § RAB=SHRRAB,- 
C6F 4 ERR=REPORT_ERROR ; read record 4 
30 OC 9 4 BSBW ERR 3 check for error 
DO =6(OC 4 MOVL #3,RECBUF ; set key=rec 3 
(8B 4 $GET | RAB=SH2RAB,- 
88 4 RR=REPORT_ERROR ; attempt to read rec 3 
E9 OC 4 BLBC £ ;: branch if rec not read 
C9C 4 TYPE § <##® MULTI-OPEN PREMATURE MANUAL UNLOCK **#> 
ayeE 2 3 rec should be Locked 
DO OCCB 478 OK24: MOVL tha be oy 3; set key=rec 4 
C 4 $GET RAB=SH2RAB,=- 
C 4 RR=REPORT_ERROR ; read record 4 
E9 OC 4 BLBC RO,OK ° rgnen if rec not read 
¢ 4 TYPE § <##® MULTI-OPEN MANUAL LOCK 2 FAILURE ***> 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 
D 4 


DMO MPO OOOO GON 2 GOI MON UND — OS OG ore 


OOO 0000 OW O0000909 0909 0909 09 0909 SII NI NINN NN SOOO OO 


ERR=REPORT_ERROR ; release record 3 
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Sr SEb-1986 Ouiae:08 Werprsncdamrest7omar;1 88° (2, 


veh” 


F2B8" 30 Bsoy pRe 3; check for error 
GET AB=SH2RAB,- 
RR=REPORT_ERROR ; rab2 tries to read rec 3 
2F 50 =Co«éEB BLBS ,OK 3 branch read ok 
TYPE <te* MULTI-OPEN MANUAL UNLOCK FAILURE *##> 


: rec should be unlocked 


oO 
x 
~ 
oa 


; Finally, the test program will read record 5 without manual 
5 + by 2 This should put an auto lock on rec 5 and also 
; maintain the manual lock on record 4. 


F43C CF 8605~—s(éO MOVL #5 ,RECBUF ; set key=rec 5 


RAB=SHRRAB, - 
ERR=REPORT_ERROR 3 read record 5 
F25C" 30 BSBW ERR ; check for error 
F423 CF 42004) OO MOVL #4,RECBUF > set key=rec 4 
$GET § RAB=SH2RAB,- 
RR=REPORT_ERROR : read rec 4 


9 
2F 50 =«=O«ED oH RO,OK : branch if rec not read 
TYPE § <#*® MULTI-OPEN PREMATURE MANUAL UNLOCK 2 ***> 


; rec should be locked 


So 
x 
™ 
N 


This completes the test section on multi-open file sharing. 


MO OONOAOUS WN O OONOU ES WO ODNOUS WOO 
wn 
a 
m 
= 


WIWNIWNIROPONOPONONMONIPUND 2 2 3 2 2 OOOO OOO OO0OO 


wry 


SEXIT_S ; end 
- END 


Basco v04-00 
CJRMSTEST7.MAR; 1 


MS 
SR 


SEp-1986 4:20:08 LET 
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FILE SHARING TEST PROGRAM 


Symbol table 


~ 
= 
”" 
[ve] 
= 
w 
= 
a 


=z==zxroO Zi woad ed ed de eee eee eeeeteccac 
VVVe a wus 


ae a ee a as te a ta 


a i ce se ee ce cee dere ell eel coe el cel cei cel ce ce ee ec 


OOCooooo CGOCCOCSCOCOSOOOOOCOCOOOOoOO 


renee earner aan00aa0 


owan su Ne Be NS Rew So eee * 
NNO UNNOOTr WN WUMN ZOVOE We OT OOK— NOK VNUs & 
TOOOOS fF DODO VAAATMMNNOOP-PF- FR. OOCCOCOOCOCOO | « € CUNO 
OOoCCOoOOOCOOOCOOoOOCOCOOOOOOOOOOOSOOOOOOOOoOO £ &# OOO 
SSSSSSSSsssssssssssssssssssssssssssss : +=ooo 
OOoOCCCOOOCOOCOOOCSCOSOOOOOOoO « $Sssssss 
SOOoOCCOCOOOOCOCOCOOOCOOOSO OOOO OOOOOOSOOOOOOoOOO €« #€ OOO 
OOCSCOCOOCOOOOOSCSS £« € COOCOCOCO 


000 
Rreeeere 
RRERRAEE 
Reeekeee 
RARRRTERE 
Reeeeeek 
RRAKKEAE 
RReaeree 
Reekeree 
grrerenre 
Reeereee 
Reeeeene 
eeeeeeee 


— 
vw 
ea Ww 
Ow - 2 uw 
cre Yv YVwe ” 
YOoz>Oxuaewn act to ee C—O Gu 
<—JwwrOOIW ww woweseor FZ wi 
Soa ~vveagrna x a ee WN We 
eee e eet tt eK OM OOOe OO 3IJOG—xwa.Duw 
QVLVVVvVIIIjII> 35a Mee ee eae eVVUVvowvIo0A&uM 
OK UM TNO OF KVM TNOr <@ PAPA AADAAPDAMNOA a Ee LN *K HO 69 8 & 69 6 69 69 HH 
NICO CI OIPIEIIN AT NOP OO OOO OOOOOMMOVEA HVVEILSAIVIM§Y MWYNNMNNMNNMNM 
ef bf Df Of Oe Oe Oe Oe A Oe Ot Oa Oe OA Oe Oa Oa OO OO KA eee ewe tr rrr It>>>>>>>>>>>> 
ola lo lola lalelelelelelalelealaleolelealeleleloleololeleo!. 4. 4.4.4.4.4.4.4.4.4.4-4- 4 ululugingingigivigi¢gigi¢i gig elas gl 
or w CCC! OK orm 
oo o oooo Ooo ooo 
2a eooaoocoaa ao aoaa BOGSG, BOB ,_ SOHHHHHLHLAL“\LAL&S“O““ALLAAALASS 
o o 
cae <= cecc & cece 


Toorwowrwonmu fZVOwooavsvoo-Co- Ooo 
DOOCUMV——-DOOOooooomMvy 


4 TFNOOONS VINA T K—QOUwIMD LDOUVOVTOoO- 
SSS OOOO SOS OOS 
& 


x 

Bee OO ROS OOOO BOOS 
*§ SOOO COOCOoOoOSoSoS 

+ SOCOCSCOOOSoOOooOSoOS OOooooooo 
+ SOSOCOOOOoOoOOooOSoSo Cooooo 
§ SS SSS SSS SSS SSS SSS SS SSSSeSssss 
+ OSOCOOCSoS 


[vy w 

a, Sou 7 
o, © nese yozxcucsa Su SopSsoeey su2sas 
vio w ws ewe bert] Cn Oe SD A Sle tn Sad Date AD mal aso 
Oe 599-3323. teteo atw teepeenerte 
-—-WYae ELECT ZWMwwwMww iW a 2n52S2 QLvVLVe It sss ee a> a2 
reser iit MSS tle auvnuesasaasaaaaae 
Stet tibtettt-tt-t--t RETR Str + S$ ds Sade dndetntedededtedntndes 
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Symbol table -SEP-1984 UETP.SRCJRMSTEST7.MAR; 1 (1) 
SYSSUPDATE eeeeenee GX 1 
SYSSWAITFR eeeeeeee 1 
TSTWRD 0000021C R D 01 
VERBOSITY Reeeeeee 1 
_DAN = o D 
XABSB_DTP = D 
XABSB_FLG = 1 D 
XAB$B_IAN = D 
XABSB_LAN = D 
ABSB_NUL = D 
XABS$B_PROLOG = 4 D 
$B_REF = D 
XABS$B_S120 = 5 D 
XABSC_BN = D 
ABSC_B = 3 04 D 
$C_KEY = 00 15 D 
XABSC_KEYLEN 2 06 4 D 
ABSC_PAC = + 0 9 D 
ABSL_KNM = 000000 D 
XABSL_NXT = 00000004 D 
XABSW_DFL = 0000001C D 
XABSW_IFL = QOOOO0IA D 
XABSW_POSO = QOOOOOIE D 
eee ee eee ee eee oe A 
: Psect synopsis ! 
$oemoeoewooocececn + 
PSECT name Allocation PSECT No. Attributes 
S 00000000 <( q-} 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
TMSTEST Q0000DF ( 3573.) O1¢ #1.) NOPIC USR CON REL OGBL NOSHR EXE RD WRT NOVEC LONG 
$$ 00000000 < 0.) be ( ¢-} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SRMSNAM 00000059 < a 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
__ SRMSNAM 00000466 ( 1126.) 04 ¢( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
ae aT 
‘ ;_Per formance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 38 00:00:00.06 8:00:01 .0 
Command processing 14 00:00. ° 8: : 6-4 
peep nahh : 368 :00:17. : 00:4 8 
able sor :00:00. :00:00. 
ces 2 12 0: f 8: 9 
Symbol table output 1 :00: 1 


ea a ae i oe 


Cross-reference output : 8. 
Assembler run totals 70 :2e. 
a8 yorking ef Limit was 1650 pages. 
733 bytes (171 pages) of virtual memory were used to buffer the intermediate 
338"s were 40 pages of symbol table meee at }ecosed to hold 642 non-local ane 3 y ee symbols. 
source Lines were read in Pass 1, produ ng 8% object records in Pass 
m 


66 pages of virtual memory were used to def acros. 


B14 
RMSTES FILE SHARING TEST PROGRAM ; Ig 


vai Macro Run Statistics pa19 d 64; 33: ag UETP SRC IRMS 1o43°8 —- (4) 


SE 
~SEP=1984 UETP.SRC SAMS TEST?.MAR; 1 


Tianna & Phkede sae 


! Macro Library Statistics ! 


jouwsecuessadnne Deere aaa em 


Macro Library name Macros defined 
~$255$0UA28: 8: SYS.OBJJLIB.MLB; 1 

S5$DUA28: CSYSLIBJSTARLET .MLB; 2 4 
TOTALS (all Libraries) 4 


1202 GETS were required to define 42 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSTEST7/OBJ=OBJ$:RMSTEST7 MSRC$:RMSTEST7/UPDATE=(ENHS:RMSTEST7) +EXECML$/LIB 
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